home *** CD-ROM | disk | FTP | other *** search
/ DarkBASIC - The Ultimate 3D Game Creator / PCactive 8 CD1 - DarkBasic.iso / SOFTWARE / DEMOS / DarkForge2000 / snippets_vol2 / snip_binarycage.dba < prev    next >
Encoding:
Text File  |  2000-08-20  |  1.9 KB  |  132 lines
  1. `    ------------------------------------------------------------------------
  2. `    BinaryCage                                  DarkForge Snippet (6/8/2000)
  3. `    ------------------------------------------------------------------------
  4. `    3D Effect simulating flying through an eternal wire-frame cage, which
  5. `    also swaps to a flow of binary digits now and again!
  6. `    This is pretty CPU intensive, so sorry if it's slow on your PC/gfx card!
  7.  
  8. sync rate 0
  9. sync on
  10. hide mouse
  11.  
  12. set text font "Courier Sans MS"
  13. set text size 48
  14.  
  15. `    Make texture 1
  16.  
  17. cls 0
  18. ink rgb(0,155,0),0
  19.  
  20. text 0,0,"01011001010"
  21. text 0,48,"10110100110"
  22. text 0,96,"DARKFORGE"
  23. text 0,144,"01100110101"
  24. text 0,192,"01110100100"
  25.  
  26. get image 1,0,0,256,256
  27.  
  28. `    Make texture 2
  29.  
  30. cls 0
  31.  
  32. box 0,0,255,255
  33. ink rgb(0,0,0),0
  34. box 5,5,250,250
  35.  
  36. get image 2,0,0,256,256
  37.  
  38. `    Make the mesh
  39.  
  40. make object cube 1,5
  41. make mesh from object 1,1
  42.  
  43. z=0
  44.  
  45. for a=1 to 10
  46.     add limb 1,a,1
  47.     offset limb 1,a,0,0,z
  48.     inc z,5
  49. next a
  50.  
  51. make mesh from object 2,1
  52. delete object 1
  53.  
  54. `    Make objects
  55.  
  56. MakeIt(1,0,0)
  57. MakeIt(2,5,0)
  58. MakeIt(3,10,0)
  59. MakeIt(4,0,5)
  60. MakeIt(5,5,5)
  61. MakeIt(6,10,5)
  62. MakeIt(7,0,10)
  63. MakeIt(8,5,10)
  64. MakeIt(9,10,10)
  65.  
  66. `    Set the scene
  67.  
  68. color backdrop rgb(0,0,0)
  69. set ambient light 100
  70. set camera range 1,250
  71.  
  72. fog distance 50
  73. fog on
  74.  
  75. position camera 5,5,-57
  76.  
  77. ink rgb(255,255,255),0
  78.  
  79. cz#=-30
  80.  
  81. t=1 : change=timer()
  82.  
  83. do
  84.  
  85.     move camera 0.25
  86.     zrotate camera wrapvalue(x#)
  87.  
  88.     inc x#
  89.  
  90.     if camera position z()>cz#
  91.  
  92.         position camera 5,5,-50
  93.  
  94.         if flip=1
  95.  
  96.             if t=1
  97.                 t=2
  98.             else
  99.                 t=1
  100.             endif
  101.     
  102.             for a=1 to 9
  103.                 texture object a,t
  104.             next a
  105.  
  106.             flip=0
  107.  
  108.         endif
  109.  
  110.     endif
  111.  
  112.  
  113.     if timer()>=change+2000
  114.         change=timer()
  115.         flip=1
  116.     endif
  117.  
  118.     sync
  119.  
  120. loop
  121.  
  122. function MakeIt(o,x,y)
  123.  
  124.     make object o,2,2
  125.     rotate object o,180,0,0
  126.     fix object pivot o
  127.     set object o,1,0,1
  128.     position object o,x,y,0
  129.  
  130. endfunction
  131.  
  132.